COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN
 00003 ENDMK
⊗;
BEGIN
	STRING FILE;
	SAFE INTEGER ARRAY DPYBUF[0:4000];
	INTEGER FLG;
WHILE TRUE DO
BEGIN
	OPEN(1,"DSK",8,3,0,0,0,0);
	OPEN(2,"DSK",8,0,3,0,0,0);
DO BEGIN
	FILE ← INCHWL;
	LOOKUP(1,"C1.PLT",FLG);
END UNTIL ¬FLG;
	ENTER(2,"C2.PLT",0);
	ARRYIN(1,DPYBUF[0],4000);
	DPYBUF[5]←DPYBUF[5]LOR '40;
	DPYBUF[6]←DPYBUF[6]LOR '40;
	DPYBUF[7]←DPYBUF[7]LOR '40;
	ARRYOUT(2,DPYBUF[0],DPYBUF[1]);
	RELEASE(1);
	RELEASE(2);
	OUTSTR("*");INCHRW;
END;
END;